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$16 ™ = 
assiotw IEEESCHGEE SRSSBEHE WAKGAT OSMEHaRE SES 
! BASIC En 
i File: BA 


s 1 001 MODULE BASSIO_END ( BASIC End I/0 statement 

: 4 Os pOENT = *1-028' F ASIOEND B32 Edit:MDL1028 
ae ae 

: § Boos : _ RnR on eee OD pee 
; el ‘2 
g 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8B * 
; 3 009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
: 19 Baio : i. ALL RIGHTS RESERVED. * 
° ; or 
; \¢ pole 1 !* THIS SOFTWARE IS hag t uret A LICENSE AND MAY BE USED AND COPIED * 
; 1 01 1 !* ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * 
3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR THER WISE MADE AVAILABLE TO ANY * 
; 16 8018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i ote ! e TRANSFERRED. . 
: i * 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
s 1 ot 3 : + CORPORATION. * 
Ps :* e 
3 $¢ $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @ 0025 1 !« * 
; @& 0026 1 !* * 
: a7 PYM SETI TTT Tr rere errr rrr rrr iii iit iii te titi iii iii iit iti iiiiitititt 
; 2 0028 1! 

; ao it 34 1 

: » 0030 1 !++ 

: Ht pos 4 } FACILITY: BASIC Support Library - user callable 

: g 0038 1 ' ABSTRACT: 

; | (34 0034 1! 

:. a 0035 1! This module terminates a BASIC 1/0 statement, writes 

; #8 0036 1! last record if output, and pops up the 1/0 system to 

3 HH sit 44 ' a previously active 1/0 statement if any. 

; +4 s'te4 : ENVIRONMENT: User access mode; mixture of AST level or not 

; 41 9041 i AUTHOR: Donald G. Petersen, CREATION DATE: 19-Mar-78 

> 43 0 rk 1 ' MODIFIED BY: 

3 44 044 1! 

s rh Boag : : 0-14 = If 15636. =ERR R_NO is non-zero, SIGNAL its contents. JMT 

: 47 0047 1! Donald ¢. yr ne 19-Mar-78 : VERSION 1-01 

:; 48 0048 1! 1-01 = original BA 

3; «649 0049 1! 1-38 - debugging... 8 DGP y Oregye rs 

; 6 «|6SO 0050 1! 1-035 = debug. DGP 07-Jun- ‘ 

zy) oe 0051 1! 1-05 - there is Prompt outstanding at 1/0 end, make it a Print. 

5 25 0036 1! DGP 28-Sep 

3 37 8037 ' 1-06 - Change. declar tion of CCB from EXTERNAL to GLOBAL 

: 55 0055 1: 1-07 - change to JSB Linkage. DGP 14-Nov-78 

; 656 3998 1 ! 1-009 = Add device nenes to REQUIRE files and update copyright 

eS 0057 1! notice. JBS 29-NOVv-78 
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4-Sep-19 


Change LUBS$B Ut; to LUBSW LUN. JBS 05-DEC-78 
Change REQUIRE file names from FOR... to OTS... J8s 11bec= 8 -78 
Change dispatch table re rerences te g.tanguer rd. DGP Us 54 8 
Change calls to FORS$CB_POP to wes ¢ 
Change reterence to FORSSFREE. on, “ “Tiger REE VN M. ate? 16-den-79 
Use bit precoeees for extefnals. AN-1 
If ISBSW_FM «> ero $900 t try = Ba a object 
time fornats MAR=19 
Change PRINT pos A Pomc DGP 19-Mar-79 
Clear ISBSW_FMT_LEN before calling CB_POP. DGP Phe. 
Don't actually deallocate the format string. DGP 30-May-79 
Use benquegenapec i ttc ,oispatah tables. JB “2gedunei979 
Use ISB s systor we for di Spatch ing. 3, fe-uU 
Set up ISBSA_USER_FP. JBS 
Reset LUBSV FORM THAR (format 7 wraased pending flag) if ISBS$V_PRINT_INI 
18 ats l pret a ey that there were no element transmitters. DGP 
ar- 
Add BASS$ANSI_10_ vy entry point. PLL 30-Jul-81 
BASEAKSI BASSANS 171 O_END to return a status. PLL 22-Jul-1982 
1,10 END™ sheers returns failure - fix this! any Paden fide 
£00 Gonycony should be signalled via SIGNAL_IO, not SIGNA 
- ov-19 
TOOMUCDAT should only be p tenet ioe if the buffer pointer 
is less than the end of _the buffer rather than simply not 
equal to the end. MDL 30-Nov-1982 


| BAS$S10_END 
td 
3 8 0 1! 1-01 
oa 889 1 i yoors 
; & re 1! I< \§ 
: Boe 1! 1-01 
; 6¢ $06 1! 1-014 
“ae * 0065 1! ee 2 
; 6 0064 1! 1-016 
3; 65 0065 1! 
; 66 8068 1! i=0l? 
; of 0067 1! 1- 18 
ee eee 
3 0 $088 1! 17054 
; 71 0071 1! 1-056 
FF b058 1! 1-0 
3 7 0075 1! 
a. 0074 1! 
> 0075 1! 1-024 
2 0076 1! 1-025 
: 77 0077 1! 1-026 
et 0078 1! 1-027 
; v7 0079 1! 
; 0080 1! 1-028 
By 0081 1! 
;. 682 0082 1! 
s 85 0083 1 !-- 
s 8 0084 1 
5. 0085 1 !<BLF/PAGE> 
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| "1 
BAS$10_END 1h-$ep-1986 00:40:38 VAX=11 BLiss-32 v4.0-74 p 3 
mst Weasepafobe Hiisestt | Paks de Seagsbcie os3-1 age 12) 
; 87 0 

88 ¢ 1 i suitenes: 

50 re, 

91 SWITCHES ADDRESSING MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

38 

94 LINKAGES 


REQUIRE "RTLIN:OTSLNK'; 
! 


! TABLE OF CONTENTS: 


Initialize all linkages 


FORWARD ROUTINE 
BASSANS! 


I10_END ! ANSI entry point (for INPUT) 
BASSIO_END ? 


ND, 
NOVALUE; ! End 1/0 statement 
1 


! INCLUDE FILES: 


ase SESS SS 


WR — DOWN DONNA ONAUES WN O OBNOUAU EW 


REQUIRE "RTLML:OTSISB’; 
REQUIRE ‘RTLML:OTSLUB’; 
REQUIRE "RTLIN:OTSMAC'; 
REQUIRE *RTLIN:RTLPSECT’; 
REQUIRE ‘RTLML:BASPAR®; 
LIBRARY *RTLSTARLE'; 


1/0 statement block (ISB) 
needed only for LUB length 


COOCCCCCOOOOCOCOOCOSCOOOOCOOOOOoO 
SAAMI MMMIUIIIVIIO OO OOOCOOSOCO 


oO 


macros 
Define DECLARE_PSECTS macro 
BASIC inter-module parameters 


Ooon 
RRRS 


STARLET Library for macros and symbols 


AAOWUIWSE 


t 

i MACROS: 

: NONE 

EQUATED SYMBOLS: 
NONE 

; PSECT DECLARATIONS: 
DECLARE _PSECTS (BAS); 
; 
; 
: 
i 
i 
i 


WIAA PIPONIPININPONONUDS 2 9 A PO OS 


declare PSECTs for BASS facility 
OWN STORAGE: 

NONE 
EXTERNAL REFERENCES: 


a ee dh od ed ed dd od od od 


GRASSO AE WN ODO NOUR UN O00 NAAR H OSS IR AR AU OOS IO 


aedadatatadatiatatatd cbadadatatat af cbadadtatiat Bat ebataebadatbad dadababadatad acdadbadbdatadatdad 
a kk ak dd td td td ot I I IOOO 
a ed aed ed ed td 


FESS S SSNS RANA SSSIS SF 


C0009 0908 SI INI NS SI NNISIOOOOO 


PEW 


EXTERNAL LITERAL 


AE Lad OANA SE Sie ard Sa oe EE ASE aD ALR eRe 
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—w 


D111 

| BASS10_END 16-Sep-1984 00:40:38 AX-11 Bliss-32 v4.0-74 Pa 4 
het a att 1 90: :11 EBASRTL Se BASIOEND.832;1 wet (2) 
3 146 1185 #1 BASSK_TOOMUCDAT, ! BAS Too much data in record 

3 16? 1} § ! OTSS$_FATINTERR; ! OTS Fatal Internal error 

: 123 11 8 1 EXTERNA 

; \¢6 1138 : OTSSSA_CUR_LUB : ADDRESSING_MODE (GENERAL), ! Adr of current LUB/ISB/RAB 

: 139 133) : Array of user data formatter (UDF) level of abstraction. 

: 4 é 1198 1°  BASSSAA_UDF_PRO : VECTOR; 

i 1194 1 

3; 154 1195 1 EXTERNAL ROUTINE 

; 6155 1138 1 BASSPRINT, ' BASIC Print initialize : 

; 3 : 1197 #1 ASSOUT_T_DX_S, ! BASIC output text element transmitter 

:- 7. 1198 1 BASSOUT_T_DX_C, ! BASIC output text element transmitter 

; 128 1199 1 BASSOUT_T_DX_B, ! BASIC output text element transmitter 

; 15 1200 1 LIBSFREE_9M, ! Return dynamically allocated virtual memory 

; 160 1201 1 BASSSCB_POP : JSB_CB_POP NOVALUE, ! Pop entire 1/0 system back to previous LUB/ISB/RAB 

s Yor 1 8¢ 1 LIBSSTOP : NOVALUE ' Signal OTS errors 

3 166 ! 7 : BASSS$SIGNAL_IO : NOVALUE; ! Signal an error with a small error number 


11 
gAs$10_END 1G-Se0-1984 00:40:38 yAKeT1 BLieg=82 v4.0-763 | Page (5 
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CCB = .OTSSS$A_CUR_LUB; 


'¢ 
: Don't do anything if this isn't an INPUT statement. 


; 

r BEGIN 

4G GLOBAL REGISTER 

" CCB = K_CCB_REG : REF BLOCK C,BYTE]; ! current control block 
4 

4 

4 

4 


= 


165 Og GLOBAL ROUTINE BASSANSI_IO_END = ! 

167 Ff tes 

198 $8 FUNCTIONAL DESCRIPTION: 

19 4 i This entry point is used to implement Minimal ANSI INPUT only. 
171 1 : If the user entered more data than requested, signal a 4 
176 \§ warning message. ¥ 
174 14 i FORMAL PARAMETERS: 

175 15 ! 

8 9 1 i — 

178 18 i IMPLICIT INPUTS: 

180 01: OTSS$$A_CUR_LUB current 1/0 control block 

181 1 ! 1SB$B_STTM TYPE 1/0 statement type code 

ise ; : LUBSA_BUF _PTR addr of next byte in buffer 

+ ts Z LUBSA_BUF _END addr+1 of last byte in buffer 

185 35 i IMPLICIT OUTPUTS: 

186 6 : 

aH i 

189 3 ; ROUTINE VALUE: 

191 31 : NONE 

138 38 ; SIDE EFFECTS: 

195 35 i Signals ‘too much data in record’ if the user enters more data 
: 36 than requested by the INPUT statement. 

1 ie 

2 

2 

; 

; 


IF (CCB CISBSB_STTM_TYPE] EL ISBSK_ST_TY, INP) 


°¢ 
ANSI semantics demand that the INPUT statement be 
restarted from the beginning if any error occurs. 
Most errors have already been detected by now - 
BASSSRESTART_IO is called in those cases. Here it 
doesn't make sense for the RTL to restart the 
statement, since we are at the end rather than in the 
iddle. §0 just return a status to the compiler and 
let Basic re-execute its INPUT calls. 


SAU WN “OO OONOUS WN OOO 


a a a ed tk td ed a td 6 8 8 a a = td 


RIP QPIPIPIPIPIPIPDPDAPINIMPIAINIAIIN IIIA 8 Bt kd dd ot od 
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Mur 


BEGIN 
eae ees GMA. 10 (BASSK_TOOMUCDAT); 
RETURN 1; 

te 


from this point on. 


VIFWUN—“ODOONOUS wT 


VMlEWr—OO0e 


BASSIO_END (); 
RETURN 1; 
END; 


a ae ed aed dd od dd dd dd dd dD 
SN NN NINN NNO 
COonoe 2S 


- TITLE 
- IDENT 


*EXTRN 
EXTRN 


oO 
oo 


oe oon"o—90—000 


58 000000006 
1E FF71 


—-o 


BS AB B0 


000000006 
000000006 00 


0000v gf 


CSS SeoesS 


polotolo). f=) 


CoOooooCoooSoSooo 
no 
PR 


foo —-wom—nw—"0 Oo 
Soooooooooooo 
Soooooooooooo 
MOaolonuwom 

o 

> 

- 

- 
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; Routine Size: 47 bytes, Routine Base: _BASSCODE + 0000 


le 
if (cc CLUBSA_BUF_PTR] LSSA .CCB CLUBSA_BUF_ 


7 rede Bliss-32 V4.0-74 
1 BASRTL.SRCJBASIOEND.832; 1 


ENDJ) 


i ANSI INPUT process tng is the same as all other 1/0 statements 


BAS$IO_END 
\1-028% 


BASS$K_TOOMUCDAT 
OTS$_FATINTERR, OTS$$A_CUR_LUB 
BASSSAA_UDF_PR9 

BASSPRINT, BASSOUT_T_DX_S 
BASSOUT_T DX_C, BASSOUT"T_dx_B 
LIBSFREE_0M, BAS$$CB_POP 
LIBSSTOP> BAS$$SIGNAC_10 


-BASSCODE ,NOWRT, SHR, PIC,2 
BASSANSI_IO_END, Save R11 
OTSSSA CORT Ye. ccB 

sete cee) #30 

FY hail -76(CCB) 


#BASSK_TOOMUCDAT 
#1, BASSSSIGNAL_IO 


#0, BAS$IO_END 
#1; RO 


ery 


rc -— - a ee — 


paps i 


41 GLOBAL ROUTINE BASSIO_END : NOVALUE = 


p-198e 11:55:11 EBASRTLsSReSBASIOEND-039;1 Peel 
' 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE]; ! current control block 


ay CCB = .OTSS$A_CUR_LUB; 
i Jf the print initialized flag is still set then there were no element transmitters 


3 1 1 

; 24 1 1 

s 46 1 ¢ 1 tee 

; te : : } FUNCTIONAL DESCRIPTION: 

3 “8 1285 1! Complete the processing of a BASIC 1/0 statement. Any prompt 

; 26 1 1: which has not been shown on the terminal (because it was not 

3 rf : : } followed by an input element) is turned into a PRINT. 

; ? ; : : FORMAL PARAMETERS: 

; § 1291 1! NONE 

3 1 5 1; 

3 2 : ez : } IMPLICIT INPUTS: 

3 56 1295 1! OTSSS$A_CUR_LUB current 1/0 control block 

3; 2 1 96 1! ISBSV_PRINT_INI a Print statement was initialized 

; 258 1297 1! ISBSB_STTM_TYPE 1/0 statement type code - index to 

; 259 1298 1! dispatch table eg © 

; 260 1299 1! FORSA_UDF _PR1 Array of user data formatters 

; 261 1500 1! (UDF Level of abstraction). 

3 o¢ 1301 1! I1SBSW_FMT_LEN No. of char. allocated to object-time format or 0 
; 26 1 8g 7; ISBSA_FMT_BEG Adr. of dynamically allocated object-time 
> 264 1305 1! ISB$B_ERR_NO Last continuable error to occur in the state- 
; 265 1306 1! ment or 0. SIGNAL if non-zero! 

3 r$ 1305 1! format array or 0 if none. 

3; 2 1 5] 1: LUBSV_TERM_DEV Indicates that the current device is a terminal. 
3 soe 1307 1! LUBSL_PRINT POS Current cursor position. 

3 1308 1! 1SB$V_P_FORA_CH The format character that followed the last prompt 
: 1309 1! RAB$B_PS7 Prompt buffer size 

3 : 19 : RABSL _PBF Address of the Prompt buffer 

; : \ : IMPLICIT OUTPUTS: 

; 1314 1! ISBSW_FMT_LEN Set to 0 

3 1315 1! ISBSA_FMT_ BEG Set to 0 

3 1316 1! LUBSV_FORA_CHAR flag indicating a format character 

3 : 4 ' RABSB_PSZ Prompt buffer size 

: 1319 1 ! ROUTINE VALUE: 

; 1320 1! 

: 1321 1! NONE 

2 1 § 1! 

3 1 1 ! SIDE EFFECTS: 

3 1324 1! 

; 1325 1! NONE 

3 1 $ 1! 

3 1 1 !e- 

; 1328 1 

; 1329 BEGIN 

3 1350 

; : 1 

3 1 § 

3 1 

: 1335 

3 1 


Roenpisascincins to lebaicaeinecnsic tonal Aehnenchhaubd cess Niateialdststcninbateciniteeniiiniathediatiiteagldianiaiiinieimbemiae 
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| BASS1O_END 16-Sep-1984 00:40: AX-11 Bliss-32 V4.0-74 
Ret 1e-sep-19 4 90:49: 78 BASRTL.SRCJBASIOEND.632;1 
E rs } 3 } and the format flag ought to be turned off before doing the PuT. 

3 4 : 5 ; a CISBSV_PRINT_INI] AND (.CCB CISBSB_STTM_TYPE] EQL ISBSK_ST_TY_PRI) 

3 9¢ io CCB CLUBSV_FORM_CHAR) = 0; 

3 Be : “8 Call appropriate UDF termination routine 

; 06 1 45 | JSB_UDF9 (BASSSAA_UDF_PRO + .BASSSAA_UDF_PRO [.CCB [ISBSB_STTM_TYPE] - ISBSK_BASSTTYLO + 1); 
; 08 1 $ i If this statement has an ob ect-time format array allocated, 

: 44 : rk } set the length and address fields back to zero so CB_POP works correctly. 

: 314 1 30 ‘ 

: \¢ 1351 IF (.CCB CISBSW_FMT_LEN] NEQ 0) 

3 1 1 26 THEN 

3 14 1 BEGIN 

3 315 1354 ccB bi Sosy Fat LEN = 0; 

3 ig 1355 CCB CISBSA_FMT_BEGJ = 0; 

; 1 2$ END; 

3 18 135 

: 319 1358 '¢ 

3 320 1359 ! Check to see if there is an outstanding Prompt. If there is and this 

; 3) 1360 ' is a terminal device, this means that 

3 ¢ 1361 ' an areas with a Prompt and no element transmitter was just processed. 

; i : $¢ Do a PRINT of the prompt buffer. This is a case of recursive 1/0. 

: 325 1 

: $e 1aa2 IF ((.CCB CRABS$B_PSZ] NEQU 0) AND .CCB CLUBSV_TERM_DEV]) 

; 56 1369 BEGIN 

; 329 1368 

; 30 1369 LOCAL 

3 53 1370 T_CCcB, ! temp for CCB-needed because CCB is a 
5 3S 1371 ' REF BLOCK 

s 335 1376 IT_NO, ! Unit on which the Prompt is pending 
3; 334 137 T_FORM_CHAR, ! temporary format char. from Prompt 

3 SoS 1378 T_DESC : BLOCK (8, BYTE], ! temporary desc. for Print ger ing 

3 $9 : Se T_PRINT_POS; ! temporary storage for print position 
: 338 1379 4 T_UNIT_NO = (IF .CCB_CLUBSW_LUN] LSS 0 THEN O ! Unit 0 which is -1 or -2 internally 
3; 339 1378 ECSe .tcB CLUGSy LUN) : 

3 40 1379 1~DESe DSC$W_LENGTH) = .CCB CRABS$B_PSZ); 

3 1 1380 T_DESC sth Sat = DSCSK_DTYPE_T; 

: § 1381 T_DESC CDSC$B_CLASSJ = DSCSK “pss $3 

; 1336 T_DESC COSCSA_POINTER) = .CCB CRABS PBF I; 

3 4 138 T_FORM_CHAR = .CCB CISBSV_P_FORM cn 

3 5 1384 T yo POS = .CCB LUBSL_PRINT_POS - .CCB CRAB$B_PSZ); 

; 46 85 af Cte CRAB$B_PSZ) = 0; 

; 28 : 14 ! Initialize the Print of the outstanding Prompt. 

: 350 1389 3 BASSPRINT (.T_UNIT_NO); 

> 351 1390 T CCB = .OTS$SA_CUR_LUB; 

3 26 1391 4 BEGIN 

; 35 1 35 4 

3; «6554 1393 4 BUILTIN 


11 
$10_END -Sep- 740: - 
van CRIA ARAEAAD MGA SANGRE ZS, 
FP; 
LOCAL 
F 


oO 
aR 


MP : REF BLOCK C, BYTE); 


WANING 


RAVLS SSIS 


Dl el el al al Dl el ad ak te ead 
SOuewnsuVeobhus a 
WN SO OONAVUESWN —OOONOULSWN OOM w 
PIPIPIPINIPIPOPIPINININPINININININI HN & BE NWI WWW WANNA INI BS BPE PPP PEE 


MAP 
T_CCB : REF BLOCK C, BYTE); 


FMP = .FP; 
T_CCB F1SB$a_useR FP] = .FMP CSFSL_SAVE_FPI; 
Tacce LUBSL-PRINT_POS) = .T_PRINT-POS; 


CASE 1 _FORM_CHAR FROM BASSK_SEMI_FORM TO BASSK_NO_FORM OF 


S: CBASSK_SEMI_FORM, BASSK_COMMA_FOR] : 

i The Const Sng Prompt ended in a semicolon or a comma format char. 

! Note that all processing associated with comma format character 

! has already been done by the Prompt handler so we will make this 
look Like a semicolon format character. 

, BASSOUT_T_DX_S (T_DESC); 

- CBASSK_NO_FORM) : 

i Prompt ended with no format character. 

: Carriage control for Prompts is contained ouph testy in the Prompt 


: buffer. This Print will now be done using VFC so we must subtract 
two from the length for the carriage control already in the buffer. 


BEGIN 
T_DESC CDSC$W_LENGTH] = .T_DESC CDSC$W_LENGTH] - 2; 
BASSOUT_T_DX_6 (T_DESC); 
END; 
TES; 
BASSIO_END 0; 
ELSE 


'¢ 
! Otherwise, just discard | prompt that may be left. Prompting is 
: not defined on non-terminal devices, anyway. 


CCB CRABS$B_PSZ) = 0; 


baw 


'¢ 

! Indicate that we are done with this 1/0 statement. If we are the last 
: user of this LUB, it will be deallocated. If we are Coren recursive 

: 1/0, the 1/0 system is restored to the unit we interrupted. 

: ctoer ISBSW_FMT_LEN so that CB_POP doesn't try to deallocate the format 
! string. 

te 


CCB CISBSW FAT_LEN] = 0; 
BASS$(B_POP ()3 
RETURN; 


a a ee a a a ee a el el ee el el el ee a ee ee el el ed 
es S. oF. fe. .b- Be Pecetctermumuacsumakehehahaketakahele bs eee 


VEER EE PW 
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; 612 1451 1 END; ! End of routine 
083¢ 000 .ENTRY BASSIO_END, Save R2,R3,R4,R5,R11 : 1280 
s 000000006 : f 0002 OVA OTSSSA“CUR_LUB, RS : | 
B 65 00 0000C MOVL OTS$$A_CUR_LUB, CCB + 1334 
0B 97 AB 0 a OOF BBC rt} stosternS 1$ : 1339 
1B FF71 CB 91 0014 CMPB Oss =143(CCB), #2? : 
4 12 00019 BNEQ = 1 : 
FE 4 BA 0018 BICB2 #4, -2(CCB) t 1341. 
5 FF71 cB A OOO1F 1% MOVZBL -143(CCB), RO : 1345) 
5 900000006004 iT) 00 4 OVL  BASSS$AA_UDF_PR9-104C(ROJ, RO : | 
000000060040 16 000 B BASSS$AA UDF ~PROCROJ : 
54 FF72 CB 9€ 000 MOVAB =142(CCB), Ré + 1351) 
64 B5 000 TSTw (R4) : | 
06 1 00054 BEQL 2$ : 
64 B4 0003C CLRW 3s (R4) + 1354. 
FF7C CB D4 0003E CLRL =-132(CCB) : 1355 
51 34 AB 9A 00042 28 MOVZBL 52(CCB), R1 > 1365 
6F 13 00046 BEQL ©-9$ ; 
6A FE AB 05 €1 00048 BBC #5, -2(CCB), 9$ ; 
C6 AB B5 0004D TSTw  =58(CCB) + 1377 
04 18 00050 BGEQ 4=s«3$ ; 
50 04 00052 CLAL T_UNIT_NO 3 i 
04 11 00054 BRA 4$ 3 ; 
50 C6 AB 32 00056 3s: CVTWL  =58(CCB), T_UNIT_NO : 1378) ; 
6E 51 BO 0005A 4$: MOVW R1, T_DESC : 1379 ; 
02 AE 010E 8F B80 0005D MOVW #270 T_DESC+2 : 1380 i 
04 AE 30 AB DO 00063 MOVL 48(CCB)7 T_DESC+4 : 138¢ ; 
53 96 AB 02 00 EF 00068 EXTZ “0, " -106(CCB), T_FORM_CHAR : 1383) i 
52 (8 AB 51 ¢3 00066 SUBL3 R1, =56(CCB), T_PRINT_POS + 1384 ; 
34 AB 94 0007 CLRB =: 552¢ CCB) : 1385 
50 DD 00076 PUSHL T_UNIT_NO : 1389 i 
000000006 00 01 FB 00078 CALLS #7, BASSPRINT ; | i 
50 65 D0 0007F MOVL  OTSS$A_CUR_LUB, T_CCB > 1390 | 
51 5D D0 00082 MOVL FP, FM ; 1408 
FF4C CO 0c Al DO 0008 MOVL  12¢FMP), -180(T_CCB) + 1403 | i 
C8 AO 3¢ D 00088 MOVL §T_PRINT POS, -58(T_CCB) > 1404 | 
02 01 53 CF OO008F CASEL T -FORM_CHAR, #1, #2 3 1407 | i 
0011 0006 0006 00093 5$ WORD §8-3$.= : i 
7$-5$ 3 ; 
5E DD 00099 6$: PUSHL SP : 1417 ‘ 
000000006 00 01 FB 0098 CALLS #1, BASSOUT_T_DX_S ; | i 
OC 11 OOOA BRB 3 ; 
BE 92 A2 OOOA4 7$: SUBW2 #2, T_DESC : 1437 
E DBD 000A7 PUSHL SP + 1428 
000000006 00 01 FB 000A9 CALLS #1, BASSOUT_T_DX_B ; | 
FF4B OCF 99 re 0080 8$: CALLS #0, BAS$IO_END ; 1432 
11 0008 BRB 10$ F 136 
34 AB 94 00087 9$: CLRB =: §2¢ CCB) > 1439. 

64 B4 OOOBA 10$:  CLRW (R4) > 1448 

000000006 00 16 JSB BAS$$CB_POP > 1449. 
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14-Sep-19 BASRTL.SRC BASIOEND.03 31 


04 000C2 RET 
; Routine Size: 195 bytes, Routine Base: _BASSCODE + 002F 
3 413 1036 1 
3 416 14 1 END 'End of module BAS$IO_END 
> 415 a + 1 
3; 416 1455 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
; _BASSCODE 242 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
; coceeee= Symbols -------- Pages Processing 
3 File Total idaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 9 0 581 00:01.1 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASIOEND/OBJ=0BJ$:BASIOEND MSRC$:BASIOEND/UPDATE=(ENHS$:BASIOEND) 
nay 242 code H 0 data bytes 

; Elapsed Tine: 28.4 

ne ret 


$ Lonnse/SPy-Mie: 39406 
: 166 pages 


t Lines, CPU Min: 
: Memor 4 Rt; sed: 
3; Compilation Complete 
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